home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / VBZ01.ZIP / META.FRM < prev    next >
Text File  |  1993-02-26  |  1KB  |  44 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Form1"
  4.    Height          =   4425
  5.    Left            =   1035
  6.    LinkTopic       =   "Form1"
  7.    ScaleHeight     =   4020
  8.    ScaleWidth      =   7365
  9.    Top             =   1140
  10.    Width           =   7485
  11. End
  12. DefInt A-Z
  13.  
  14. Declare Sub DeleteMetaFile Lib "GDI" (ByVal hMF)
  15. Declare Sub SetWindowOrg Lib "GDI" (ByVal hDC, ByVal X, ByVal Y)
  16. Declare Sub SetWindowExt Lib "GDI" (ByVal hDC, ByVal X, ByVal Y)
  17. Declare Sub MoveTo Lib "GDI" (ByVal hDC, ByVal X, ByVal Y)
  18. Declare Sub LineTo Lib "GDI" (ByVal hDC, ByVal X, ByVal Y)
  19. Declare Sub Rectangle Lib "GDI" (ByVal hDC, ByVal nLeft, ByVal nTop, ByVal nRight, ByVal nBottom)
  20. Declare Function CreateMetaFile Lib "GDI" (ByVal lpString As Any)
  21. Declare Function CloseMetaFile Lib "GDI" (ByVal hMF)
  22.  
  23.  
  24. Const NULL = &H0&
  25.  
  26. Sub Form_Click ()
  27.   Dim MyRect As Rect
  28.  
  29.   hMetaDC = CreateMetaFile(Null)
  30.   SetWindowOrg hMetaDC, 0, 0
  31.   SetWindowExt hMetaDC, 100, 100
  32.   Rectangle hMetaDC, 0, 0, 100, 100
  33.   MoveTo hMetaDC, 0, 0
  34.   LineTo hMetaDC, 100, 100
  35.   MoveTo hMetaDC, 0, 100
  36.   LineTo hMetaDC, 100, 0
  37.   hMeta = CloseMetaFile(hMetaDC)
  38.   MyRect.Right = 1000
  39.   MyRect.Bottom = 1400
  40.   Meta2Aldus hMeta, MyRect, 10, "MYMETA.WMF"
  41.   DeleteMetaFile hMeta
  42.  End Sub
  43.  
  44.